library(XML)
url <- 'http://baike.baidu.com/link?url=lZ8CK2uGDFKrr1wX_0quOwVvvqt-HmqSwf7K1M3H1XCTds-e_F65B0GET93ECHv4'
tbl <- readHTMLTable(url, which = 1)
write.csv(tbl, "~/Desktop/country.csv", row.names = F, quote = F)
write.table(tbl, "~/Desktop/table.txt", row.names = F, quote = F)